home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iconed1a / iconwrks.gbl < prev    next >
Encoding:
Text File  |  1995-06-21  |  17.3 KB  |  457 lines
  1. Attribute VB_Name = "Module1"
  2. '-----------------------------------------------------------------------
  3. '               Copyright (C) 1991 Microsoft Corporation
  4. '
  5. ' You have a royalty-free right to use, modify, reproduce and distribute
  6. ' the Sample Application Files (and/or any modified version) in any way
  7. ' you find useful, provided that you agree that Microsoft has no warranty,
  8. ' obligations or liability for any Sample Application Files.
  9. '
  10. ' -----------------------------------------------------------------------
  11. #If Win32 Then
  12.     DefLng H
  13. #Else
  14.     DefInt H
  15. #End If
  16. '
  17. ' Type use by the API routine InvertRect()
  18. '
  19. #If Win32 Then
  20. Type RECT
  21.     Left As Long
  22.     Top As Long
  23.     Right As Long
  24.     bottom As Long
  25. End Type
  26. Type POINTAPI
  27.     X As Long
  28.     Y As Long
  29. End Type
  30. Type ICONINFO
  31.     fIcon As Long
  32.     xHotspot As Long
  33.     yHotspot As Long
  34.     hBMMask As Long
  35.     hBMColor As Long
  36. End Type
  37. Type GUID
  38.     Data1 As Long
  39.     Data2 As Integer
  40.     Data3 As Integer
  41.     Data4(7) As Byte
  42. End Type
  43. Type PICTDESC
  44.     cbSizeofstruct As Long
  45.     picType As Long
  46.     Long1 As Long
  47.     Long2 As Long
  48.     Long3 As Long
  49. End Type
  50. Global Const PICTYPE_BITMAP = 1
  51. Global Const PICTYPE_ICON = 3
  52. Type LOGBRUSH
  53.     lbStyle As Long
  54.     lbColor As Long
  55.     lbHatch As Long
  56. End Type
  57.  
  58. Declare Function CreateIconIndirect Lib "User32" (icoinfo As ICONINFO) As Long
  59. Declare Function CreateBrushIndirect Lib "gdi32" (lpLogBrush As LOGBRUSH) As Long
  60. Declare Function ExtFloodFill Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal fuFillType As Long) As Long
  61. Declare Function DestroyIcon Lib "User32" (ByVal hIcon As Long) As Long
  62. Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (lpPictDesc As PICTDESC, riid As GUID, ByVal fOwn As Long, IPic As IPicture) As Long
  63. Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
  64. Declare Function GSM Lib "User32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
  65. Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long
  66. Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long
  67. Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  68. Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long
  69. Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long
  70. Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  71. Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As Long
  72. Declare Function Polygon Lib "gdi32" (ByVal hDC As Long, lpPoints As POINTAPI, ByVal nCount As Long) As Long
  73. Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
  74. Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, ByVal lpBits As Any) As Long
  75. Declare Function GlobalLock Lib "Kernel32" (ByVal hMem As Long) As Long
  76. Declare Function GlobalUnlock Lib "Kernel32" (ByVal hMem As Long) As Long
  77. Declare Function GetIconInfo Lib "User32" (ByVal hIcon As Long, icoinfo As ICONINFO) As Long
  78. Declare Function GetNearestColor Lib "gdi32" (ByVal hDC, ByVal RGBColor As Long) As Long
  79. Declare Function GetPrivateProfileInt Lib "Kernel32" Alias "GetPrivateProfileIntA" (ByVal Appname As String, ByVal KeyName As String, ByVal DEFAULT As Long, ByVal FileName As String) As Long
  80. Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal Appname As String, ByVal KeyName As String, ByVal DEFAULT As String, ByVal ReturnedString As String, ByVal MaxSize As Long, ByVal FileName As String) As Long
  81. Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringW" (ByVal Appname As String, ByVal KeyName As String, ByVal NewString As String, ByVal FileName As String) As Long
  82. Declare Function StretchBlt Lib "gdi32" (ByVal hDCDest, ByVal X As Long, ByVal Y As Long, ByVal Width As Long, ByVal Height As Long, ByVal hDCSrc, ByVal srcX As Long, ByVal srcY As Long, ByVal srcWidth As Long, ByVal srcHeight As Long, ByVal Rop As Long) As Long
  83. Declare Function WinHelp Lib "User32" Alias "WinHelpA" (ByVal hWnd, ByVal HelpFile As String, ByVal wCommand As Long, ByVal dwData As Long) As Long
  84. Declare Function InvertRect Lib "User32" (ByVal hDC, lpRect As RECT) As Long
  85.  
  86. Declare Function GetMenu Lib "User32" (ByVal hWnd) As Long
  87. Declare Function GetSubMenu Lib "User32" (ByVal hWnd, ByVal Position As Long) As Long
  88. Declare Function GetSystemMenu Lib "User32" (ByVal hWnd, ByVal bRevert As Long) As Long
  89. Declare Function RemoveMenu Lib "User32" (ByVal hMenu, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  90. Declare Function TrackPopupMenu Lib "User32" (ByVal hMenu, ByVal r1 As Long, ByVal X As Long, ByVal Y As Long, ByVal r2 As Long, ByVal hWnd As Long, ByVal r3 As Long) As Long
  91.  
  92. Global Const BLACK_BRUSH = 4
  93. Global Const NOTSRCERASE = &H1100A6     ' (DWORD) dest = (NOT src) AND (NOT dest)
  94. Global Const WHITENESS = &HFF0062       ' (DWORD) dest = WHITE
  95. Global Const FLOODFILLSURFACE = 1
  96. Global Const SRCAND = &H8800C6  ' (DWORD) dest = source AND dest
  97. Global Const SRCINVERT = &H660046       ' (DWORD) dest = source XOR dest
  98. Global Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
  99. Global Const BLACKNESS = &H4262       ' (DWORD) dest = BLACK
  100. Global Const BITSPIXEL = 12 '  Number of bits per pixel
  101. Global Const PLANES = 14    '  Number of planes
  102. Global Const SM_CXICON = 11
  103. Global Const SM_CYICON = 12
  104. Global Const BS_SOLID = 0
  105. Global Const MF_BYPOSITION = &H400
  106. Global Const HELP_CONTEXT = &H1
  107. Global Const HELP_QUIT = &H2
  108. Global Const HELP_HELPONHELP = &H4
  109.  
  110. Global IID_IDispatch As GUID
  111. #Else
  112. Type RECT
  113.     Left As Integer
  114.     Top As Integer
  115.     Right As Integer
  116.     bottom As Integer
  117. End Type
  118. '
  119. ' Window API Function Declarations
  120. '
  121. Declare Function BitBlt Lib "Gdi" (ByVal hDCDest, ByVal X As Integer, ByVal Y As Integer, ByVal Width As Integer, ByVal Height As Integer, ByVal hDCSrc As Integer, ByVal srcX As Integer, ByVal srcY As Integer, ByVal Rop As Long) As Integer
  122. Declare Function CreateCompatibleBitmap Lib "Gdi" (ByVal hDC, ByVal Width As Integer, ByVal Height As Integer) As Integer
  123. Declare Function CreateCompatibleDC Lib "Gdi" (ByVal hDC) As Integer
  124. Declare Function DeleteDC Lib "Gdi" (ByVal hDC) As Integer
  125. Declare Function DeleteObject Lib "Gdi" (ByVal hObject) As Integer
  126. Declare Function ExtFloodFill Lib "Gdi" (ByVal hDC, ByVal X As Integer, ByVal Y As Integer, ByVal crColor As Long, ByVal wFillType As Integer) As Integer
  127. Declare Function GetBitmapBits Lib "Gdi" (ByVal hBitmap, ByVal dwCount As Long, ByVal lpBits As Long) As Long
  128. Declare Function GetDeviceCaps Lib "Gdi" (ByVal hDC, ByVal nIndex As Integer) As Integer
  129. Declare Function GetMenu Lib "User" (ByVal hWnd) As Integer
  130. Declare Function GetNearestColor Lib "Gdi" (ByVal hDC, ByVal RGBColor As Long) As Long
  131. Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal DEFAULT As Integer, ByVal FileName As String) As Integer
  132. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal DEFAULT As String, ByVal ReturnedString As String, ByVal MaxSize As Integer, ByVal FileName As String) As Integer
  133. Declare Function GetSubMenu Lib "User" (ByVal hWnd, ByVal Position As Integer) As Integer
  134. Declare Function GetSystemMenu Lib "User" (ByVal hWnd, ByVal bRevert As Integer) As Integer
  135. Declare Function GlobalLock Lib "Kernel" (ByVal mMem As Integer) As Long
  136. Declare Function GlobalUnlock Lib "Kernel" (ByVal mMem As Integer) As Integer
  137. Declare Function InvertRect Lib "User" (ByVal hDC, lpRect As RECT) As Integer
  138. Declare Function RemoveMenu Lib "User" (ByVal hMenu, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
  139. Declare Function SelectObject Lib "Gdi" (ByVal hDC, ByVal hObject) As Integer
  140. Declare Function SetBitmapBits Lib "Gdi" (ByVal hBitmap, ByVal dwCount As Long, ByVal lpBits As Long) As Long
  141. Declare Function StretchBlt Lib "Gdi" (ByVal hDCDest, ByVal X As Integer, ByVal Y As Integer, ByVal Width As Integer, ByVal Height As Integer, ByVal hDCSrc, ByVal srcX As Integer, ByVal srcY As Integer, ByVal srcWidth As Integer, ByVal srcHeight As Integer, ByVal Rop As Long) As Integer
  142. Declare Function TrackPopupMenu Lib "User" (ByVal hMenu, ByVal r1 As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal r2 As Integer, ByVal hWnd As Integer, ByVal r3 As Long) As Integer
  143. Declare Function WinHelp Lib "User" (ByVal hWnd, ByVal HelpFile As String, ByVal wCommand As Integer, ByVal dwData As Long) As Integer
  144. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal NewString As String, ByVal FileName As String) As Integer
  145. '
  146. ' Window API Constant Declarations
  147. '
  148. Global Const SRCCOPY = &HCC0020
  149. Global Const SRCAND = &H8800C6
  150. Global Const SRCINVERT = &H660046
  151. Global Const BLACKNESS = &H42&
  152. Global Const FLOODFILLSURFACE = 1
  153. Global Const MF_BYPOSITION = &H400
  154. Global Const BITSPIXEL = 12
  155. Global Const HELP_CONTEXT = &H1
  156. Global Const HELP_QUIT = &H2
  157. Global Const HELP_HELPONHELP = &H4
  158. #End If
  159. '
  160. ' Type use by IconWorks to keep track of the 6 Icons that be edited at once.
  161. '
  162. Type ICONRECORD
  163.     FileName As String
  164.     FullPath As String
  165.     Changed As Integer
  166. End Type
  167. '
  168. ' INI file KeyNames
  169. '
  170. Global Const APP_NAME = "IconWorks"
  171. Global Const KEY_COLOR = "Colors Row"
  172. Global Const KEY_GRID = "Grid"
  173. Global Const KEY_LINE_GRID = "Line Grid"
  174. Global Const KEY_DOTTED_GRID = "Dotted Grid"
  175. Global Const KEY_STATUS_BAR = "Status Bar"
  176. Global Const KEY_TOOL_PALETTE = "Tool Palette"
  177. Global Const KEY_COLOR_PALETTE = "Color Palette"
  178. Global Const KEY_ZOOM_SCROLLBAR = "Zoom Scrollbar"
  179. Global Const KEY_FOCUS = "Editor Focus"
  180. Global Const KEY_BORDER = "Icon Border"
  181. Global Const KEY_POPUP = "Popup Menu"
  182. Global Const KEY_SHOW_ICONS = "Show Icons"
  183. Global Const KEY_DEFAULT = "Default Colors"
  184. Global Const KEY_SOLID = "Solid Colors"
  185. Global Const KEY_INI = "INI File Colors"
  186. Global Const INI_FILENAME = "IconWrks.INI"
  187. '
  188. ' Default Color palette values
  189. '
  190. Global Const DEFAULT_COLORS_ROW1 = "16777215 14737632 12632319 12640511 14745599 12648384 16777152 16761024 16761087 00000192 00016576 00049344 00049152 12632064 12582912 12583104"
  191. Global Const DEFAULT_COLORS_ROW2 = "12632256 04210752 08421631 08438015 08454143 08454016 16777088 16744576 16744703 00000128 00016512 00032896 00032768 08421376 08388608 08388736"
  192. Global Const DEFAULT_COLORS_ROW3 = "08421504 00000000 00000255 00033023 00065535 00065280 16776960 16711680 16711935 00000064 04210816 00016448 00016384 04210688 04194304 04194368"
  193. '
  194. ' Default value for ICONRECORD Filename field
  195. '
  196. Global Const UNTITLED = "[Untitled]"
  197. '
  198. ' Editor's File Menu ID's
  199. '
  200. Global Const MID_NEW = 0
  201. Global Const MID_OPEN = 1
  202. Global Const MID_SAVE = 2
  203. Global Const MID_SAVE_AS = 3
  204. Global Const MID_EXIT = 5
  205. '
  206. ' Editor's Edit Menu ID's
  207. '
  208. Global Const MID_UNDO = 0
  209. Global Const MID_CUT = 2
  210. Global Const MID_COPY = 3
  211. Global Const MID_PASTE = 4
  212. Global Const MID_PASTE_OPAQUE = 5
  213. Global Const MID_DELETE = 6
  214. Global Const MID_SELECT_ALL = 7
  215. Global Const MID_FLIP_HORIZONTAL = 9
  216. Global Const MID_FLIP_VERTICAL = 10
  217. Global Const MID_ROTATE_RIGHT = 12
  218. Global Const MID_ROTATE_LEFT = 13
  219. Global Const MID_INVERT = 15
  220. '
  221. ' Editor's View Menu ID's
  222. '
  223. Global Const MID_STATUS_BAR = 0
  224. Global Const MID_TOOL_PALETTE = 1
  225. Global Const MID_COLOR_PALETTE = 2
  226. Global Const MID_ZOOM_SCROLLBAR = 3
  227. Global Const MID_SHOW_ALL = 4
  228. Global Const MID_GRID = 6
  229. Global Const MID_LINE_GRID = 7
  230. Global Const MID_DOTTED_GRID = 8
  231. Global Const MID_ZOOM_IN = 10
  232. Global Const MID_ZOOM_OUT = 11
  233. Global Const MID_FOCUS = 13
  234. Global Const MID_BORDER = 14
  235. Global Const MID_POPUP_MENU = 15
  236.  
  237. ' Editor's Color Menu ID's
  238. '
  239. Global Const MID_COLORS = 0
  240. Global Const MID_DEFAULT_COLORS = 1
  241. Global Const MID_SOLID_COLORS = 2
  242. Global Const MID_INI_COLORS = 3
  243. Global Const MID_SAVE_COLORS = 5
  244. Global Const MID_LEFT_RIGHT = 7
  245. Global Const MID_SCREEN_INVERSE = 8
  246. '
  247. ' Viewer's Options Menu ID's
  248. '
  249. Global Const MID_EDITOR = 0
  250. Global Const MID_SHOW_ALL_ICONS = 1
  251. Global Const MID_SHOW_ON_DIR_CHANGE = 3
  252. '
  253. ' Help Menu ID's
  254. '
  255. Global Const MID_INDEX = 1
  256. Global Const MID_KEYBOARD = 2
  257. Global Const MID_COMMANDS = 3
  258. Global Const MID_USING_HELP = 4
  259. Global Const MID_ABOUT = 6
  260. '
  261. ' Index values for Editor.Opt_ColorMouse()
  262. '
  263. Global Const MOUSE_COLORS = 0
  264. Global Const SCREEN_COLORS = 1
  265. '
  266. ' Adjustment Values for Editor's Sub Adjust_X_And_Y()
  267. '
  268. Global Const TO_CENTER = 0
  269. Global Const TO_EDGE = 1
  270. '
  271. ' Editor's ToolPalette ID's
  272. '
  273. Global Const TID_SELECT = 0
  274. Global Const TID_PAINT = 1
  275. Global Const TID_FILL = 2
  276. Global Const TID_LINE = 3
  277. Global Const TID_SQUARE = 4
  278. Global Const TID_FILLED_SQUARE = 5
  279. Global Const TID_CIRCLE = 6
  280. Global Const TID_FILLED_CIRCLE = 7
  281. '
  282. ' Viewer and SaveFileDlg File Control values
  283. '
  284. Global Const FILE_NOT_FOUND = 53
  285. Global Const FILENAME_CHANGED = 0
  286. Global Const FILE_CHANGED = 1
  287. Global Const DIR_CHANGED = 2
  288. '
  289. ' Viewer's viewing window Cell size - 32x32 pixels + 1
  290. '
  291. Global Const ICON_CELL = 34&
  292. '
  293. ' Index's into the ColorPalettes' Scrl_RGB()
  294. '
  295. Global Const RED_ELEMENT = 0
  296. Global Const GREEN_ELEMENT = 1
  297. Global Const BLUE_ELEMENT = 2
  298. '
  299. ' Miscellaneous
  300. '
  301. Global Const EGA_HEIGHT = 7000
  302. Global Const HIGHLIGHT = 10
  303. Global Const HID_DEFINING_COLORS = 1000
  304. Global Const ICONWORKS_EDITOR = 0
  305. Global Const ICONWORKS_VIEWER = 1
  306. '
  307. ' Editor's Information Array and Color palette array
  308. '
  309. Global ICONINFO(5)  As ICONRECORD
  310. Global Colors(47)   As Long
  311. Global MouseColors(3) As Long
  312. '
  313. ' Editor Global Variables
  314. '
  315. Global ToolInProcess    As Integer
  316. Global MovingSelection  As Integer
  317. Global Selecting        As Integer
  318. Global Moveable         As Integer
  319. Global Opaque           As Integer
  320. Global CurrentTool      As Integer
  321. Global CurrentIcon      As Integer
  322. Global BrushSize        As Integer
  323. Global PixelSize        As Integer
  324. Global X1Region         As Integer
  325. Global Y1Region         As Integer
  326. Global X2Region         As Integer
  327. Global Y2Region         As Integer
  328. Global XMoveSelection   As Integer
  329. Global YMoveSelection   As Integer
  330. Global X1SelectFrom     As Integer
  331. Global Y1SelectFrom     As Integer
  332. Global X2SelectFrom     As Integer
  333. Global Y2SelectFrom     As Integer
  334. Global LastX1           As Integer
  335. Global LastY1           As Integer
  336. Global LastX2           As Integer
  337. Global LastY2           As Integer
  338. Global LastXpix         As Integer
  339. Global LastYpix         As Integer
  340. Global DoubleClicked    As Integer
  341. Global ColorIndex       As Integer
  342. Global hDCMono
  343. Global hBMMono
  344. Global hBMOldMono
  345. Global ImageSize        As Integer
  346. Global XCenter          As Single
  347. Global YCenter          As Single
  348. Global Aspect           As Single
  349. Global Radius           As Single
  350. Global ColorString      As String
  351. '
  352. ' Viewer Global Variables
  353. '
  354. Global MaxIcons         As Integer
  355. Global IconRows         As Integer
  356. Global IconColumns      As Integer
  357. Global MinViewerWidth   As Integer
  358. Global MinViewerHeight  As Integer
  359. Global ShowingAllIcons  As Integer
  360. '
  361. ' Miscelaneous
  362. '
  363. Global MainForm           As Integer
  364. Global EditorLoaded       As Integer
  365. Global ViewerLoaded       As Integer
  366. Global ColorPaletteLoaded As Integer
  367. Global EditorInitialized  As Integer
  368. Global VLastChanged       As Integer
  369. Global SLastChanged       As Integer
  370. Global NumColorsIs256     As Integer
  371. Global Text               As String
  372. Global CRLF               As String * 2
  373. Global A_TAB              As String * 1
  374.  
  375.  
  376. ' CONSTANTS TAKEN FROM VB'S CONTANT.TXT FILE
  377. '
  378.  
  379. ' WindowState
  380. Global Const MINIMIZED = 1
  381.  
  382. ' Clipboard formats
  383. Global Const CF_BITMAP = 2
  384.  
  385. ' DragOver
  386. Global Const OVER = 2
  387.  
  388. ' Show parameters
  389. Global Const MODAL = 1
  390. Global Const MODELESS = 0
  391.  
  392. ' Colors
  393. Global Const BLACK = &H0&
  394. Global Const DARKBLUE = &H800000
  395. Global Const DARKGREEN = &H8000&
  396. Global Const DARKCYAN = &H808000
  397. Global Const DARKRED = &H80&
  398. Global Const DARKPURPLE = &H800080
  399. Global Const DARKYELLOW = &H8080&
  400. Global Const DARKGRAY = &H808080
  401. Global Const GRAY = &HC0C0C0
  402. Global Const BLUE = &HFF0000
  403. Global Const GREEN = &HFF00&
  404. Global Const CYAN = &HFFFF00
  405. Global Const RED = &HFF&
  406. Global Const PURPLE = &HFF00FF
  407. Global Const YELLOW = &HFFFF&
  408. Global Const WHITE = &HFFFFFF
  409.  
  410. ' System Colors
  411. Global Const WINDOW_BACKGROUND = &H80000005
  412. Global Const WINDOW_TEXT = &H80000008
  413.  
  414. ' MousePointer
  415. Global Const DEFAULT = 0
  416. Global Const CROSSHAIR = 2
  417. Global Const SIZE = 5
  418. Global Const UP_ARROW = 10
  419. Global Const HOURGLASS = 11
  420.  
  421. ' DrawMode Values
  422. Global Const INVERSE = 6
  423. Global Const COPY_PEN = 13
  424.  
  425. ' DrawStyle property Values
  426. Global Const SOLID = 0
  427. Global Const DOT = 2
  428.  
  429. ' FillStyle Values
  430. Global Const TRANSPARENT = 1
  431.  
  432. ' Key Codes
  433. Global Const KEY_BACK = &H8
  434. Global Const KEY_SHIFT = &H10
  435. Global Const KEY_CONTROL = &H11
  436. Global Const KEY_INSERT = &H2D
  437. Global Const KEY_DELETE = &H2E
  438. Global Const KEY_F1 = &H70
  439.  
  440. ' Shift parameter masks
  441. Global Const SHIFT_MASK = 1
  442. Global Const CTRL_MASK = 2
  443. Global Const ALT_MASK = 4
  444.  
  445. ' Button parameter masks
  446. Global Const LEFT_BUTTON = 1
  447. Global Const RIGHT_BUTTON = 2
  448.  
  449. ' ScaleModes
  450. Global Const TWIPS = 1
  451. Global Const PIXELS = 3
  452.  
  453. ' MsgBox return values
  454. Global Const MBYES = 6
  455. Global Const MBNO = 7
  456.  
  457.